Top 10k strings from Santa Paravia en Fiumaccio (19xx)(D.J. de Korte)(nl).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
3 t$(e)'n$(e):
3 t$(e)'n$(e)
3 ;"Druk toets voor vervolg...":
2 q(e)=q(e)+
2 n(e)=n(e)+
2 k(e)=k(e)+z:
2 <l(e)/1000
2 ;"Druk toets voor vervolg...";:
2 )*s(e)/100
1 zp=zp*j(e)
1 z=s(e)-d(e)*100
1 z=(gu-du)/du*10
1 z;" slaven gestorven dit jaar":
1 z;" slaven geboren dit jaar":
1 z;" Slaven komen naar de stad":
1 y=(s(e)-d(e)*100
1 x=(du-gu)/du*100
1 w$="SLECHT WEER
1 w$="NORMAAL WEER GEMIDDELDE OOGST"
1 w$="GOED WEER
1 w$="EXELLENT WEER GROTE OOGST"
1 w$="DROOGTE
1 u(e)=u(e)+1
1 u(e)=u(e)+.5
1 u(e)=u(e)+.25
1 u(e)=u(e)+.1
1 t(e)=t(e)+1
1 t$(e)'n$(e)''"is bankroet. Geldschieters
1 t$(a)'n$(a)
1 s(e)=s(e)-z:
1 s(e)=s(e)-ju
1 s(e)=s(e)-20
1 s(e)=s(e)+z:
1 s(e)=s(e)+z
1 s(e)<32766
1 r(e)=r(e)-iu
1 r(e)=r(e)-gu:
1 r(e)=r(e)+iu
1 r(e)=r(e)+hu
1 r(e)=(r(e)*100
1 q(e)=q(e)+2
1 p(e)=p(e)-z:
1 p(e)=p(e)+20
1 p(a)>p(e)*2.4
1 n(e)=n(e)+1
1 n$(a)=z$+" van "+t$(a)
1 m(e)=m(e)+z
1 m(e)=m(e)+5
1 m(e)=m(e)+
1 l(z)=l(z)+au:
1 l(e)=l(e)-iu:
1 l(e)=l(e)-au
1 l(e)=l(e)+iu:
1 l(a)=10000
1 k(e)=k(e)-z
1 k(e)=k(e)-iu*l
1 k(e)=k(e)-5000
1 k(e)=k(e)-500
1 k(e)=k(e)-3000
1 k(e)=k(e)-2000
1 k(e)=k(e)-1000
1 k(e)=k(e)-(iu*g/1000
1 k(e)=k(e)+iu*l
1 k(e)=k(e)+cu+su+iu+j
1 k(e)=k(e)+(iu*g/1000
1 k(e)=k(e)*1.5
1 k(e)<32766
1 k(e)<(-10000
1 ju;" Slaven vluchten ten gevolge van de strenge justitie"
1 j$="wreed"
1 j$="streng"
1 j$="middelmatig"
1 j$="billijk"
1 iu>(l(e)-5000
1 gu>r(e)-r(e)/5
1 gu<du+du*.3
1 g(e)+h(e)<35
1 d(e)=d(e)+1
1 c(e)=c(e)+1
1 bepalen titel
1 b=v(a)+t(a)
1 b(e)=b(e)+1
1 au>(l(e)-5000
1 a=z/u0-j(e):
1 a=s(e)/2000
1 a=k(e)/5000
1 a(e)=a(e)+1
1 a$=a$+" ":
1 SANTA PARAVIA, oorspronkelijk voor TRS-80. Bewerkt en uitgebreid voor Spectrum door D.J. de Korte, Vlissingen
1 SANTA PARAVIA, oorspronkelijk
1 ;t$(e),,n$(e),,,"heeft gewonnen!",,
1 ;'" * SANTA PARAVIA EN FIUMACCIO * "
1 ;"Veel succes!"
1 ;"Nog een spel (j/n)?":
1 ;"Het spel is uit";
1 ;"HET SPEL IS UIT";
1 ;"Druk toets voor vervolg..."
1 ;" *** SLECHT NIEUWS ***
1 -r(e)*r)/100
1 -g(e)-h(e)-i(e):
1 -g(e)-h(e)-i(e)):
1 *j(e)*n(e)*y/100
1 *(l(a)/1000
1 )="Peppone van Monterana":
1 )="Baron ":
1 (t(e)+v(e)):
1 (su*h(e)/100
1 (s(e)/1000
1 (p(z)*1000
1 (l(e)/1000
1 (l(e)-5000
1 (iu*i(e)/100
1 (cu*g(e)/100
1 ((n(e)*180
1 ((j(e)*300
1 't$(z)'n$(z)'"valt aan en bezet ";au;" hectare"
1 't$(e)'n$(e)''"is zojuist gestorven",
1 't$(e)'n$(e)'"verloor ";z;" soldaten tijdens"'"de oorlog"
1 ''"U hebt ";k(e);" gouden florijnen"
1 ''"Druk toets voor vervolg..."
1 ''"(0= vervolg)"'"(6= overzicht toestand)"'"(7= plattegrond)"
1 ''" SANTA PARAVIA EN FIUMACCIO"
1 '"Zoveel kunt u niet verkopen...":
1 '"Zoveel hebt u niet!":
1 '"Wilt u instructies (j/n)?":
1 '"Wie is de regeerder van ",t$(a);"(max 8 letters)?"
1 '"WEELDEBELASTING JUSTITIE"
1 '"Uw levensduur hangt van allerleifactoren af, waardoor u soms niet lang genoeg leeft om te kunnen winnen."
1 '"U bent de regeerder van een ita-liaans staatje in de 15 de eeuw.Wanneer u goed regeert, verdientu hogere titels."
1 '"Is ";n$(a)'"een man of een vrouw (m/v)? ";
1 '"IN/UITVOERBEL INKOMSTENBELASTING"
1 '"Hoge belastingen brengen geld opmaar verminderen de economische groei."
1 '"Hoeveel spelers (max 6)? ";:
1 '"Geef de moeilijkheidsgraad:"''"1 = beginneling","2 = vakman","3 = meester","4 = grootmeester"
1 '"De speler die het eerst de titelvan koning of koningin behaalt, heeft gewonnen."
1 '"De ploeg rechtsboven geeft aan of al uw land in productie is. Wanneer hij daalt, hebt u gebrekaan slaven. U kunt hun aantal verhogen, door meer graan te verstrekken dan het minimum ge- vraagde. U lokt daarmee boven- dien meer slaven naar uw land."
1 '"De computer tekent steeds een plattegrond van uw land.De ruim-te binnen de muur wordt groter, naarmate u meer land koopt."
1 '"Betaalde soldij: ";z;" Fl":
1 '"1= Marktplaats (1000 Fl) ";a(e)
1 '"1= In/uitvoer 2= Ink. belasting3= Weeldebel. 4= Justitie"
1 "ratten eten ";r;"% van uw graan"
1 "op hoge leeftijd na lang bewind":
1 "na te zijn aangevallen door de bende van Cartouche tijdens een reis door frankrijk"
1 "na een val van het paard"
1 "kilo kilo 1000kg hect. florijn"
1 "hoeveel graan wilt u gebruiken voor consumptie? ";gu
1 "aan voedselvergiftiging"
1 "aan longontsteking na een koude winter op een vochtig kasteel"
1 "aan een besmetting met tyfus na het drinken van onzuiver water"
1 "aan de gevolgen van de pokken"
1 "Welk punt wilt u wijzigen?
1 "Wat kiest u? (0= doorgaan): ";iu
1 "Wat is uw keuze? ";i
1 "Verstrekt u minder graan dan ge-vraagd wordt, dan zal een aantalvan uw mensen sterven."
1 "Uw marktopbrengst is: ";z;" Fl"
1 "U moet minstens 20% vam uw re- serves vrijgeven!":
1 "U moet minstens 20% behouden!":
1 "Santa-Paravia","Fiumaccio","Torricella","Molineto","Fontanile","Romagna"
1 "SLAVEN LAND
1 "Opbrengst spinnerij : ";z;" Fl"
1 "Justitie: 1=billijk, 2=middelma-tig, 3=streng, 4=wreed. Keuze? ";i
1 "Hoeveel hectare wilt u verkopen?";iu
1 "Hoeveel hectare wilt u kopen? ";iu
1 "Hoeveel graan wilt u verkopen? ";iu
1 "Hoeveel graan wilt u kopen? ";iu
1 "Het fort linksboven stelt uw verdediging voor. Wanneer het fort kleiner wordt, moet u uw leger uitbreiden."
1 "Heer ","Baron ","Graaf ","Markies ","Hertog ","Groot-Hertog ","Prins ","
1 "Geef de nieuwe weeldebelasting (0 tot 25%): ";i
1 "Geef de nieuwe inkomstenbelas- ting (0 tot 50%): ";i
1 "Geef de nieuwe in/uitvoerbelas- ting (0 tot 100%): ";i
1 "GRAAN GRAAN PRIJS PRIJS SCHAT-"
1 "Druk toets voor vervolg...":
1 "Dame ","Barones ","Gravin ","Markiezin ","Hertogin ","Gr-Hertogin ","Prinses ","
1 "Bel. inkomsten: ";j+cu+su+iu;" florijnen"
1 "BEZIT VRAAG GRAAN LAND KIST"
1 "ADEL SOLDATEN KERK MIDDENSTAND"
1 "5= Soldaten(20man)(500 Fl) ";p(e)
1 "4= kathedraal("""")(5000 Fl) ";c(e);"/6"
1 "3= Paleis (deel) (3000 Fl) ";b(e);"/5"
1 "2= Wolspinnerij (2000 Fl) ";d(e)
1 "1= koop graan 2= verkoop graan3= koop land 4= verkoop land"
1 " ";g(e);"%";
1 " ";cu;" Fl";
1 hebben uw bezittingen in beslag genomen"
1 Z.M.Koning "
1 SCHATKIST"
1 Koningin"
1 HONGERSNOOD"
1 GOEDE OOGST"
1 ARME OOGST"
1 ** INVESTERINGEN **"
1 (0= doorgaan): ";i
1 (";hu;" kilo)"
1 ";iu;" Fl";
1 ";i(e);"%";